(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     42598,       1003]
NotebookOptionsPosition[     39906,        919]
NotebookOutlinePosition[     40327,        935]
CellTagsIndexPosition[     40284,        932]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Propeller", "Section",
 CellChangeTimes->{{3.522430442609375*^9, 3.522430450578125*^9}, {
  3.555912111016549*^9, 3.555912112485299*^9}}],

Cell[BoxData[
 RowBox[{"<<", "C:\\\\Hopsan\\Compgen\\CompgenNG.mx"}]], "Input",
 CellChangeTimes->{{3.5772037650720577`*^9, 3.5772037650780582`*^9}, {
  3.611474457184202*^9, 3.611474523938877*^9}, {3.6114745588913717`*^9, 
  3.61147456057154*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"path", "=", 
   RowBox[{"ToFileName", "[", 
    RowBox[{"{", 
     RowBox[{
     "\"\<C:\>\"", ",", "\"\<HopsanTrunk\>\"", ",", 
      "\"\<ComponentLibraries\>\"", ",", "\"\<defaultLibrary\>\"", ",", 
      "\"\<Special\>\"", ",", "\"\<AeroComponents\>\""}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5757727777685804`*^9, 3.575772792541806*^9}, {
   3.5757728423954945`*^9, 3.5757728498367076`*^9}, {3.57577333888545*^9, 
   3.5757733706315055`*^9}, 3.5757734316206255`*^9, 3.6031909973287797`*^9, 
   3.6057717887213297`*^9, {3.605771829393656*^9, 3.605771830929744*^9}, 
   3.6058530990363216`*^9, {3.621138851005574*^9, 3.621138863716845*^9}, {
   3.626686112671085*^9, 3.6266861209310846`*^9}, {3.6273758738899097`*^9, 
   3.627375907312579*^9}, {3.6278060251438417`*^9, 3.627806031567667*^9}, {
   3.632749181696716*^9, 3.632749212911501*^9}}],

Cell[TextData[{
 "Model of propeller\n\n",
 Cell[GraphicsData["Metafile", "\<\
CF5dJ6E]HGAYHf4PEfU^I6mgLb15CDHPAVmbKF5d0@0000KP0@000?@00022o_ooNokooi41003Q0@00
00000000002a0P00]@`00215CDH00040h0H004T000030000@`0006`000000000EPD00003003R0@00
3`40000000000000000006IJ1`1E8P@0B@1^06/0L`1S0640L01U0200<00^03@0>00^0380801b03T0
>00a03T0800X0440M@1W0200<@0d0200<P0`0340<@0Y0000J@1^06/0L`1S0640L01U02d0H`1/06T0
L01R06l0H@1b06@0;@1U07P0L01_0780M00^06D0K@1V000000000140000<0000200000T0000@0000
/@800;D<000;0000400001<0001L0000AP0002P0000L0000Df=bIFE^?C4c=SIh=cHhL7P/83@h<WPb
=c5]KDH0000/00007@0004AbHGMYKVLm<2h`N2d`;S1`N2`P<2h`N30^<6e]0000G`0003P000010000
>0000000000h00000000000R0@0>0000000000000000000000000000000U000030000040000j0000
300001X1000U0000300000D0080Z0000600000L0000;0000QP80080<000U000030000000080U0000
300000L0080X000030000040000W0000600000400000000000000000000U000030000040000C0000
30000080001O0000>0000080000h0000000003P000000000028101`0000000000000000000000000
000002D0000<00000P0003X0000<00006P4003/0000800006`000100001E0@00U@D005P0000X0000
00000000003oooooooooo`<0003e09P50P4l0`41<@9H0000:000000000000000ooooooooool30000
005X0C@1401E0@l0F00002P00000000000000?oooooooooo0`0006l13P2R0HL1X`4]0UP0000X0000
00000000003oooooooooo`<0002T0D43_P6C1ED1U@Dm0000200003`000080000?`0001P00022o_oo
Nokooi41002^0@009@0000`000000020:00000`0000100009@0000`000070020:00000`000020000
9`0001P00002000000000000000000009@0000`0000200004`0000`000020000G`0003P000010000
>0000000000h00000000000R0@0L0000000000000000000000000000000U000030000040000j0000
300001X1000k0000200001/0000@0000E@400207001H0000:000000000000000ooooooooool30000
m@0N1`81N@T10HD:F00002P00000000000000?oooooooooo0`000001CP/d0JH<E@6W35P0000X0000
00000000003oooooooooo`<0001_0JP<Z@5P2j<1R@YH0000:000000000000000ooooooooool30000
V`5e2Kh18`ME0B07?@0000P0000l0000200003l0000H0000P_koojonoonA0@00h@4002D0000<0000
0000P2P0000<00000P0002D0000<00001`00P2P0000<00000@0002L0000H00000@00000000000000
000002D0000<00000@0001<0000<00000P0005l0000h00000P0003P000000000>000000000008P40
5P0000000000000000000000000000009@0000`000020000>P0000`0000J0@00>`0000P0000K0000
40000=P0001Y1P00F00002P00000000000000?oooooooooo0`000=P0B0N00BP7aP4D1eP0000X0000
00000000003oooooooooo`<000060P87FP:?1UX2A0IH0000:000000000000000ooooooooool30000
FP871_X1Z`G50Ih5F00002P00000000000000?oooooooooo0`0007X1S0GG07L5f01Y1SH0000@0000
f00006T6000m0000200003`000080000?`0001P0002Co_oo]Okooh@1002X0@009@0000`000000020
:00000`0000100009@0000`000070020:00000`0000200003P0001@000000000400001@0
\>"], "Graphics",
  GeneratedCell->False,
  CellAutoOverwrite->False,
  ImageSize->{34., 160.84615384615384`},
  ImageMargins->{{0, 0}, {0, 38}}]
}], "Text",
 CellChangeTimes->{{3.632776621936849*^9, 3.6327767190054007`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", "\"\<Aero\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"displayName", "=", "\"\<Propeller\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"brief", "=", "\"\<Model of a propeller\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"componentType", "=", "\"\<ComponentC\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"author", "=", "\"\<Petter Krus <petter.krus@liu.se>\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
  "affiliation", " ", "=", " ", 
   "\"\<Division of Fluid and Mechatronic Systems, Link\[ODoubleDot]ping \
University\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetFilenames", "[", 
   RowBox[{"path", ",", "domain", ",", "displayName"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ResetComponentVariables", "[", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Date", "[", "]"}]}], "Input",
 CellChangeTimes->{{3.52243043575*^9, 3.522430437953125*^9}, {
   3.555912115813424*^9, 3.555912150141549*^9}, 3.5757879776674304`*^9, 
   3.576942702695205*^9, 3.605872050550205*^9, 3.6327493497893305`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2015", ",", "2", ",", "12", ",", "20", ",", "22", ",", 
   "1.6138399`7.960435435036996"}], "}"}]], "Output",
 CellChangeTimes->{3.6327553117390027`*^9, 3.6327554177860684`*^9, 
  3.6327561185891523`*^9, 3.6327577216258407`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"inputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "Up", ",", "1.25", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<Air speed\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "rho", ",", "1.25", ",", "double", ",", "\"\<kg/m3\>\"", ",", 
       "\"\<Air density\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.5224305394375*^9, 3.5224305394375*^9}, {
   3.52243058465625*^9, 3.5224305981875*^9}, 3.52328822021875*^9, {
   3.5232883535*^9, 3.523288359328125*^9}, {3.531855769421875*^9, 
   3.531855790125*^9}, {3.531855974453125*^9, 3.53185600171875*^9}, {
   3.531856163125*^9, 3.531856187796875*^9}, {3.5411602367910447`*^9, 
   3.5411602434471664`*^9}, 3.5559123321420507`*^9, {3.55594922259375*^9, 
   3.555949263484375*^9}, 3.605871541987297*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"k", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dp", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cp", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b1", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b2", "=."}], ";"}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.5774508197080183`*^9, 3.5774508461676645`*^9}, {
   3.577450932163263*^9, 3.5774509347525215`*^9}, {3.579115489951048*^9, 
   3.579115494897331*^9}, 3.6058715419882975`*^9}]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputParameters", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "dp", ",", "1.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<Propeller diameter\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "b1", ",", "0.2", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Propeller thrust coefficient\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "b2", ",", "0.2", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Propeller thrust coefficient\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "g1", ",", "0.205", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Propeller torque coefficient\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "g2", ",", "0.2", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Propeller torque coefficient\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "ct0", ",", "0.12", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Propeller torque coefficient\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "cp0", ",", "0.08", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Propeller torque coefficient\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "k", ",", "4", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<exponent for transition\>\""}], "}"}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.522430544015625*^9, 3.522430601609375*^9}, {
   3.522431017015625*^9, 3.5224310198125*^9}, 3.52328822196875*^9, {
   3.52328833575*^9, 3.5232883406875*^9}, {3.531855796109375*^9, 
   3.5318558308125*^9}, {3.531856011921875*^9, 3.531856035125*^9}, {
   3.541161713191944*^9, 3.54116171961386*^9}, {3.5411621661130204`*^9, 
   3.541162205831262*^9}, {3.5411623055956097`*^9, 3.5411623262047215`*^9}, {
   3.555912340360853*^9, 3.5559123619703665`*^9}, {3.555912401689371*^9, 
   3.5559124347520823`*^9}, {3.555912932927146*^9, 3.555912945817853*^9}, {
   3.555913203147625*^9, 3.5559132086945353`*^9}, {3.555945723875*^9, 
   3.555945778375*^9}, {3.555946056125*^9, 3.555946057140625*^9}, {
   3.555946906875*^9, 3.55594692371875*^9}, 3.55594922825*^9, 
   3.555949390765625*^9, {3.5608513081183796`*^9, 3.56085136317197*^9}, {
   3.5608514552662325`*^9, 3.560851476872371*^9}, {3.6327492796583185`*^9, 
   3.632749286237695*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"outputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "thrust", ",", "500.", ",", "double", ",", "\"\<N\>\"", ",", 
       "\"\<Thrust\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "torque", ",", "0.", ",", "double", ",", "\"\<N\>\"", ",", 
       "\"\<Torque\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Pin", ",", "0.", ",", "double", ",", "\"\<W\>\"", ",", 
       "\"\<Input power\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Pout", ",", "0.", ",", "double", ",", "\"\<W\>\"", ",", 
       "\"\<Output Power\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Jp", ",", "0.", ",", "double", ",", "\"\< \>\"", ",", 
       "\"\<Advance rate\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5224305513125*^9, 3.522430551328125*^9}, {
   3.5224305858125*^9, 3.522430586890625*^9}, {3.522430995046875*^9, 
   3.522431007625*^9}, 3.523288224421875*^9, 3.523288345421875*^9, {
   3.53185590446875*^9, 3.531855936828125*^9}, {3.53185605765625*^9, 
   3.5318560964375*^9}, {3.555912989365007*^9, 3.5559129923181505`*^9}, {
   3.55594578775*^9, 3.555945815578125*^9}, {3.5559896357679014`*^9, 
   3.555989666596224*^9}, {3.5559900141312447`*^9, 3.5559900372252903`*^9}, {
   3.6327550420015745`*^9, 3.6327550439356856`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"nodeConnections", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"MechanicRotCnode", "[", 
     RowBox[{
     "mr1", ",", "0.", ",", "0.", ",", "\"\<Mechanical rot.connection\>\""}], 
     "]"}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.555945986890625*^9, 3.555945987671875*^9}, 
   3.5559881614277153`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"b1", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b2", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g1", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g2", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ct0", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cp0", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k", "=."}], ";"}]}], "Input",
 CellChangeTimes->{{3.560851541476918*^9, 3.560851556687016*^9}, {
  3.56085163076124*^9, 3.560851638686091*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ct1", "=", 
   RowBox[{"b1", "-", 
    RowBox[{"b2", " ", "Jpe"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cp1", "=", 
   RowBox[{"g1", "-", 
    RowBox[{"g2", " ", "Jpe"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.555931492906174*^9, 3.5559315232969933`*^9}, {
   3.555940258109375*^9, 3.55594027396875*^9}, {3.555940336875*^9, 
   3.555940382640625*^9}, {3.555940524578125*^9, 3.555940542*^9}, 
   3.55594057240625*^9, {3.555940920703125*^9, 3.55594095309375*^9}, {
   3.555941001953125*^9, 3.55594109125*^9}, {3.555941317453125*^9, 
   3.55594132215625*^9}, {3.5559486410625*^9, 3.555948643921875*^9}, {
   3.555948706546875*^9, 3.555948707921875*^9}, {3.5559899821152096`*^9, 
   3.5559899836308537`*^9}, {3.5608515001009197`*^9, 3.5608515011305265`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ct", ":=", 
   RowBox[{
    FractionBox["ct1", 
     RowBox[{"Abs", "[", "ct1", "]"}]], 
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox["1", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox["1", "ct0"], ")"}], "k"], "+", 
        FractionBox["1", 
         SuperscriptBox[
          RowBox[{"Abs", "[", "ct1", "]"}], "k"]]}]], ")"}], 
     RowBox[{"1", "/", "k"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cp", ":=", 
   RowBox[{
    FractionBox["cp1", 
     RowBox[{"Abs", "[", "cp1", "]"}]], 
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox["1", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox["1", "cp0"], ")"}], "k"], "+", 
        FractionBox["1", 
         SuperscriptBox[
          RowBox[{"Abs", "[", "cp1", "]"}], "k"]]}]], ")"}], 
     RowBox[{"1", "/", "k"}]]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.560851507167765*^9, 3.5608515203030496`*^9}, {
  3.5608516954195814`*^9, 3.560851707328209*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"b1", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b2", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g1", "=", "0.205"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g2", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ct0", "=", "0.12"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cp0", "=", "0.08"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Jpe", "=."}], ";"}]}], "Input",
 CellChangeTimes->{{3.5608357445785418`*^9, 3.560835770076603*^9}, {
  3.560850123615588*^9, 3.5608501252223983`*^9}, {3.560851056497853*^9, 
  3.5608511188048477`*^9}, {3.5608511681428423`*^9, 3.56085116904766*^9}, {
  3.560851717156209*^9, 3.5608517356700087`*^9}, {3.5608517820296087`*^9, 
  3.5608518031208086`*^9}, {3.560851858622409*^9, 3.560851867389609*^9}}],

Cell["\<\
The trust and power coefficients are plotted below. The curves are symetric \
although in reality the curves are different abouve Jpe = 1. The normal mode \
of operation is however, with positive coefficients. The behavior here would \
be accurate  with a symetric profile.\
\>", "Text",
 CellChangeTimes->{{3.560852064527809*^9, 3.560852226939209*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ct", ",", "cp"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"Jpe", ",", "0", ",", "1.5"}], "}"}]}], "]"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.5608357732980704`*^9, 3.5608358123460417`*^9}, {
   3.5608358976340613`*^9, 3.5608359247198534`*^9}, {3.5608477314769506`*^9, 
   3.560847736307266*^9}, 3.5608491784740257`*^9, {3.5608516790784435`*^9, 
   3.560851680334285*^9}, {3.560852042750209*^9, 3.5608520467282085`*^9}, 
   3.605871554763297*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVzHk41HkAx3GFVZ5UhHYL22V2KI9WW+uIz+qOpOTI0eQaWUmSUoMMIVsz
cnQ4cozUsHSgH4vJl80x1vUo5VFRJGscuf2c2faP9/P6773e9awVe7GUlJTF
t/53ytwn5chZZ5MJN4c7i8QiRLr/xGximOB8z5T1qRoRGr50e/EZh6Gworq1
vlqE4YLdPG8GC88tw7TuVokQpjqm5sTwweHaxBnmCxHqasw+H2NcgWz9ayPT
MhHOpl+stWREQ+sxJ2j3MxEqeLxSC0Yq3i6xfx+VJoLsd35yEq8naNE5ED/o
I8LBEJcIyrYIkQN+i27uFKHoMrv9QXMZwivuqwzLitDmcFrXL+AF2qfNxWqV
pVDcz/eo+K0GWWZznMqQUqxsYef/6liHqNfclSY6pdi4zjs7wrUJge+DBBkv
S6DffqbONK4ZpltiJXz/ElTMcA+1JL8C6+YEd3BxCTyJWFwW9hp3FK2D6njF
SHQTrlFxbkXZQ7nc6GXF0DneOfmV3QaPBHPnHX5/oWPMsvG3g+/AZuhUFb8s
wuiHH7aq2rRj35egE/mrihCTwzllZ/cBM80ZsoI9hWCsWGJxKfkjlBqOeuqf
o1Doy82JTuuEUWXHiGXAM7RoxssdjeuC3hTniDenAJuuvmKeSPyE3i3E/8dj
+TA48uGXtORuNDpbmR9Qy0O7b4QJn/cZs5190Gt+gnwDe4Wq2B5sy1N3DVB6
BFXbmrasiH/hxE51CnP/E+iSiv3bvxcJab2yrTlCJKp6KjAuSVCeJS2IEmQi
LPX3a9u9+vBoznsru0SAlMaE6mjffgSphb3hL09BsE/8sLrfAH4+VOw9n38H
/S7M7+1dByFm2nK1S2JwY75PpsPjC/oHTkZ2nw9HycD+oeUOQ4hzyrRSSPDF
G039LsNNw8CeZM2eWSfiqeWmG/9gGMJVNvYHo7mkwtYx0FRjBKRGUWx2j0e2
He/LVhaMICSklD/ZfIt4X93Xarx2FPWUDJgdSSTKY8nMovhRuEqMhV2sdPJc
3WWhT3kMwcJu5cSw+6T4a6S0dvQYJg/tDM9weUgaC3b38RXH0VTGMZR4ZpOq
dR7VvLhxGIV2XRLszyXhRTaCTvkJDPm38gzbHhOnDe9ZjvwJPEwpN6PJUzJb
qLt2s9wkBv2sz6zvzyNB0pL621cmcWGpI7f+az5R3WTgoilFY42M9ZnTKs9I
gI/tuPxlGp6V7KIBWYqo7XAXMwJpYIvR0NhSipTPn7u3K5jGXlZb3rQCReT5
/D2cUBo+em9bpVQpkppTeUvyB42c5KHseU2KVPfqbRcn0WDtVeLm7aWIstuK
ixEiGqfrb7xdHE6RYm11M0EZDZWkceG7axRhjWprPC+nIak+KVNwgyJZofuq
xytppFl98joRTxGj9GBV9wYaGsG7xtIzKOLa3l+4q4PGtgXJ6k/lFJF7MH2d
9ZHGu9WtksxKiuR6y53kdNGwcYm1YIspMjm7QS6/h8Y/TN26ziaKXF/jYLd+
iMYVfb/M2g6K6Had2mw8QsPxNlOe20WRluwLC8fHvv00DaW391BEwyBWGEPT
MBMaP00apMgLqbTA3GkatXN33c1HKOIpzrUUz9LQOqzxaGacIstiSjZ2z9MI
b5C9njVFkTw7Mb2wQCNUKXzWeo4i/wGhW4U2
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx3881HcAx/FrWuehpSndykWIy4/1sFZNaryXGkVKayHKIpxfwzzKb/Kj
i8lJyZbfv6Lzu+/dlbTySX50jVhR5lEkUTnlcPjKz9kfr8fr8dRy9f/J/TMG
g2Gz2P+fsvbLtvU/aZbA2FogZ4lx3m2TXhvHDOL50dNPF/14uN+bzzmIu9OW
JtSiR0R7knw5zlB2yPjDb9GxLPn64xw/eKcsKXy/Rozmh1YDRzhR2HxFZbZL
VQz/vKBHhzjJWC6bCKZWiVGXlPSXDScHhvU/tmxRFuPzZYHMQe8qaLEZFxIU
xNh/1oV3064aLikNz22nRKgOde8uelKLD8c6ufIhEbocfYwCg+sxqFicW/9S
BBVLvkfdDw9h68haKWgR4csOd6GxUzOIzfD4ndsibNT0LeG5tiFVIUt/V4EI
O7p/bd59+QnW8QorNiWKUDcdfaAjsx2WmrXmKr4ieBKJpDb2GWaNr99LsRYh
/dR1tTUnO/Gu6KNpG0eEzQ6vJ+fdu5D4hJXvPyVEj/xQ6w/7X6Cr+8q5kUYh
xl6t+4Z1tBsuWtzZVp4QKWVhXHv7VzBmN9XH7xKCs1LRJiSzF1wLKmOPlMKt
gOiy5NzXqIb/QFkshQ7dVObhy33YVtH2iKlCQSeuXe9E+hucuaY+7R99Aya2
r7blZvbDp/HE9GFRFboDeGb8pAG8kFr/E2VVCaHJsRWNl94inL3MzTShHCy7
h10C3jsMaH5v7FpSCvQxLj04/R4DoUpRh7MESGd5ruCEDGJ2naWCB6cYsTle
8du9pbi9UleSUVyI7NarTckBQxD8e15bcD8PkX6pI+qBH/CGnbydxGZiyEVv
7THXj7AM0Q8Jr0nDhTnp0h6PYbSL7JqN8pNx54OlTNlRBtWCKodt8bF4rruj
b6fOCAT1wa6CYG946p8ySi0awUJHaNLcXi9SZ+cUvltjFIUx1hZRJ2PJVgdp
iWr+KOR/l3W/cbtIfOMsOk3ZY+A1Vc5UitNIgofi9JLUMSx92sxuD80k99Rd
FqSqcmjcZWfTD/JIzfx5BYNkOcx9mJv3BRaSVtEeKV9lHKJklaksg2LSqOnR
lHR5HKqd+RpDWQJyrvpo/mulCQTK6IqvK0rJce2Xzk78CSwoPVsiKy0nM7eM
2IbMSVzlxJ27eKCSRCgMtqRFTWJkU234FmEVYemYuOgyaFxL3RcXEn2DBPvZ
jSuF0hg8smrAbBlF1n/nJuGE02jWyeZwFSlyf+63LPNIGhPSncN8JYoo8fl7
w2JoJLhhdacyRXLKGq4M/k6jqOjnx/ZfUaTp/bfbJRk05lcES1brUUT11Mog
3l0aqOhgRuyjSI2BulV+LQ21P8MeBFlRxHnMQOPefRpHGS4bAg5QRBBj0TTe
QGPUiVvvbEuRXXmRLLfHNHI2pLUYOlDEtXvolnkPjYj1Edd4XIowiz4lOvfS
CNaukXp7UaTcl/lLWB+N0uFPvQd9KDI5o80UvqWxNmK4d5U/RRLVHO21ZDT0
zb0sLgRRxKiPa2g6SkNvR5KORwhFOkrOLDjIacgGw2oQRhENk0vXU2gaBUy1
5bJIitQzcsPLP9EInQ551HCWIp6S8kOSGRo9Nxnm6TEU+SLlzsb+ORretfFn
fOMoQtlL6IUFGqet+93MeBT5D5eOeMU=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 1.5}, {-0.08588153019452173, 0.11242685242395097`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10001.},
 CellChangeTimes->{
  3.5608358137345405`*^9, {3.5608358897771664`*^9, 3.5608359920932994`*^9}, 
   3.560847736990616*^9, {3.5608491595357475`*^9, 3.560849273425624*^9}, 
   3.560849328001081*^9, 3.5608493961175365`*^9, 3.560849434983737*^9, 
   3.560850127952416*^9, 3.5608503075329723`*^9, 3.560850359699707*^9, {
   3.5608510614556894`*^9, 3.5608511203492775`*^9}, {3.560851159812282*^9, 
   3.560851204085933*^9}, {3.5608516889299393`*^9, 3.560851698960804*^9}, 
   3.560851739913209*^9, 3.5608518284676085`*^9, {3.560851872459609*^9, 
   3.5608518746904087`*^9}, {3.5608519112150087`*^9, 3.560851938093809*^9}, {
   3.5608519729910088`*^9, 3.560852000062009*^9}, {3.5608520512522087`*^9, 
   3.560852054481409*^9}, 3.560852569978809*^9, 3.5608526815568085`*^9, 
   3.561034454955637*^9, {3.5610344978690915`*^9, 3.5610345149520683`*^9}, 
   3.573057069832483*^9, {3.573058578212757*^9, 3.5730585836870704`*^9}, 
   3.575628874700932*^9, 3.5756295359790535`*^9, 3.5756447928778706`*^9, 
   3.5772072420979323`*^9, 3.577207288370579*^9, 3.577280401980438*^9, 
   3.5774506857126207`*^9, {3.5774508278378315`*^9, 3.577450851757223*^9}, 
   3.5774509398880353`*^9, 3.579115498621544*^9, 3.581406083617607*^9, 
   3.590728291553135*^9, {3.605871554763297*^9, 3.6058715639382973`*^9}, 
   3.632755417931077*^9, 3.63275772178685*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"b1", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b2", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g1", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g2", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ct0", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cp0", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k", "=."}], ";"}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.},
 CellChangeTimes->{{3.560851541476918*^9, 3.560851556687016*^9}, {
  3.56085163076124*^9, 3.560851638686091*^9}, {3.605871554763297*^9, 
  3.6058715639382973`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["ct"], "Input",
 CellChangeTimes->{{3.5608518359088087`*^9, 3.560851836220809*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"b1", "-", 
     RowBox[{"b2", " ", "Jpe"}]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox["1", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox["1", "ct0"], ")"}], "k"], "+", 
       SuperscriptBox[
        RowBox[{"Abs", "[", 
         RowBox[{"b1", "-", 
          RowBox[{"b2", " ", "Jpe"}]}], "]"}], 
        RowBox[{"-", "k"}]]}]], ")"}], 
    FractionBox["1", "k"]]}], 
  RowBox[{"Abs", "[", 
   RowBox[{"b1", "-", 
    RowBox[{"b2", " ", "Jpe"}]}], "]"}]]], "Output",
 CellChangeTimes->{
  3.560851836969609*^9, {3.5608518785280085`*^9, 3.560851938359009*^9}, {
   3.560851991258609*^9, 3.560852000202409*^9}, 3.560852570088009*^9, 
   3.560852681900009*^9, 3.573057069863485*^9, {3.5730585782947617`*^9, 
   3.573058583763075*^9}, 3.575628874727935*^9, 3.575629536101065*^9, 
   3.5756447929038725`*^9, 3.577207242126934*^9, 3.577207288511587*^9, 
   3.577280402117446*^9, 3.5774506857476234`*^9, {3.5774508281888666`*^9, 
   3.577450852096257*^9}, 3.57745094023707*^9, 3.579115498652546*^9, 
   3.5814060836566095`*^9, 3.590728291676135*^9, 3.6327553119400144`*^9, 
   3.63275541798708*^9, 3.632756118820165*^9, 3.632757721848853*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["cp"], "Input",
 CellChangeTimes->{{3.560852004976009*^9, 3.5608520065984087`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"g1", "-", 
     RowBox[{"g2", " ", "Jpe"}]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox["1", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox["1", "cp0"], ")"}], "k"], "+", 
       SuperscriptBox[
        RowBox[{"Abs", "[", 
         RowBox[{"g1", "-", 
          RowBox[{"g2", " ", "Jpe"}]}], "]"}], 
        RowBox[{"-", "k"}]]}]], ")"}], 
    FractionBox["1", "k"]]}], 
  RowBox[{"Abs", "[", 
   RowBox[{"g1", "-", 
    RowBox[{"g2", " ", "Jpe"}]}], "]"}]]], "Output",
 CellChangeTimes->{
  3.560852007409609*^9, 3.560852570166009*^9, 3.5608526819936085`*^9, 
   3.5730570698904862`*^9, {3.5730585783207636`*^9, 3.573058583803077*^9}, 
   3.5756288747489367`*^9, 3.575629536127068*^9, 3.5756447929248734`*^9, 
   3.5772072421519356`*^9, 3.5772072885345883`*^9, 3.577280402148448*^9, 
   3.5774506857716265`*^9, {3.5774508282318707`*^9, 3.5774508521352606`*^9}, 
   3.5774509402780743`*^9, 3.5791154986845474`*^9, 3.581406083683611*^9, 
   3.5907282917071347`*^9, 3.6327553119620156`*^9, 3.632755418019082*^9, 
   3.6327561188461666`*^9, 3.6327577218848553`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nmp", "=", 
  RowBox[{"60", 
   FractionBox["wmr1", 
    RowBox[{"2", " ", "pi"}]]}]}]], "Input",
 CellChangeTimes->{{3.555948676828125*^9, 3.55594868828125*^9}, {
  3.555992878628854*^9, 3.5559929062229567`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"30", " ", "wmr1"}], "pi"]], "Output",
 CellChangeTimes->{
  3.555997021278448*^9, 3.555997509169186*^9, 3.560851828608009*^9, 
   3.560851911402209*^9, 3.5608525702596087`*^9, 3.5608526820872087`*^9, 
   3.5730570699184875`*^9, {3.573058578347765*^9, 3.5730585838360786`*^9}, 
   3.5756288747679386`*^9, 3.5756295361530704`*^9, 3.5756447929438744`*^9, 
   3.5772072421779366`*^9, 3.5772072885575895`*^9, 3.577280402174449*^9, 
   3.577450685797629*^9, {3.577450828268874*^9, 3.5774508521702642`*^9}, 
   3.577450940313078*^9, 3.579115498707549*^9, 3.5814060837086124`*^9, 
   3.5907282917361345`*^9, 3.632755311985017*^9, 3.6327554180520835`*^9, 
   3.6327561188741684`*^9, 3.6327577219258575`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nsp", "=", 
  FractionBox["wmr1", 
   RowBox[{"2", " ", "pi"}]]}]], "Input",
 CellChangeTimes->{{3.555948676828125*^9, 3.55594868828125*^9}, {
  3.555992878628854*^9, 3.555992894316554*^9}}],

Cell[BoxData[
 FractionBox["wmr1", 
  RowBox[{"2", " ", "pi"}]]], "Output",
 CellChangeTimes->{
  3.555948850453125*^9, 3.555949164515625*^9, 3.555949305640625*^9, 
   3.555949397546875*^9, 3.555988290278137*^9, 3.555990080913349*^9, 
   3.555997021294075*^9, 3.5559975091848116`*^9, 3.5608518286860085`*^9, 
   3.560851911480209*^9, 3.560852570337609*^9, 3.5608526821964087`*^9, 
   3.5730570699494896`*^9, {3.5730585783887672`*^9, 3.5730585838640804`*^9}, 
   3.575628874789941*^9, 3.575629536178073*^9, 3.575644792963876*^9, 
   3.577207242201938*^9, 3.5772072885815907`*^9, 3.5772804021994505`*^9, 
   3.5774506858216314`*^9, {3.577450828304878*^9, 3.5774508522062683`*^9}, 
   3.5774509403460813`*^9, 3.57911549873155*^9, 3.581406083743614*^9, 
   3.5907282917661347`*^9, 3.6327553120080185`*^9, 3.6327554180830855`*^9, 
   3.63275611890317*^9, 3.63275772196286*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Jpe", "=", 
  FractionBox["Up", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{".00001", "+", "nsp"}], ")"}], " ", "dp"}]]}]], "Input",
 CellChangeTimes->{
  3.555948669671875*^9, {3.5559492923125*^9, 3.555949292546875*^9}, 
   3.5559899860996356`*^9, 3.5559928883946037`*^9, 3.555997448151218*^9, {
   3.555997856238852*^9, 3.5559978789110174`*^9}}],

Cell[BoxData[
 FractionBox["Up", 
  RowBox[{"dp", " ", 
   RowBox[{"(", 
    RowBox[{"0.00001`", "\[VeryThinSpace]", "+", 
     FractionBox["wmr1", 
      RowBox[{"2", " ", "pi"}]]}], ")"}]}]]], "Output",
 CellChangeTimes->{
  3.55594885046875*^9, 3.55594916453125*^9, 3.55594930565625*^9, 
   3.555949397578125*^9, 3.555988290340656*^9, 3.555990080928974*^9, 
   3.5559970213097014`*^9, 3.5559975092004375`*^9, 3.5608518287796087`*^9, 
   3.5608519115426087`*^9, 3.560852570415609*^9, 3.5608526822900085`*^9, 
   3.573057069983492*^9, {3.573058578417769*^9, 3.573058583890082*^9}, 
   3.5756288748099427`*^9, 3.5756295362020755`*^9, 3.5756447929838767`*^9, 
   3.5772072422259398`*^9, 3.5772072886035924`*^9, 3.5772804022274523`*^9, 
   3.5774506858456335`*^9, {3.577450828342882*^9, 3.5774508522372713`*^9}, 
   3.5774509403800845`*^9, 3.5791154987535515`*^9, 3.5814060837866163`*^9, 
   3.590728291797135*^9, 3.6327553120300198`*^9, 3.6327554181200876`*^9, 
   3.632756118940172*^9, 3.632757721987861*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemEquationsDA", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"thrust", "==", 
      RowBox[{"ct", " ", "rho", " ", 
       SuperscriptBox["nsp", "2"], 
       SuperscriptBox["dp", "4"]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"cmr1", "==", 
      FractionBox[
       RowBox[{"cp", " ", "rho", " ", 
        SuperscriptBox["nsp", "2"], 
        SuperscriptBox["dp", "5"]}], 
       RowBox[{"2", " ", "pi", " "}]]}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.52243075090625*^9, 3.522430787703125*^9}, {
   3.5411615752641563`*^9, 3.5411615792800126`*^9}, {3.5559130501310205`*^9, 
   3.555913151741046*^9}, {3.555945828640625*^9, 3.55594583028125*^9}, 
   3.5559460309375*^9, 3.5559487771875*^9, {3.5559895528923707`*^9, 
   3.55598955975179*^9}, {3.5559974605110674`*^9, 3.555997462651775*^9}, {
   3.5559978089567947`*^9, 3.5559978113474655`*^9}, {3.5608522969922085`*^9, 
   3.5608523223266087`*^9}, {3.571861397162342*^9, 3.5718614029811525`*^9}, 
   3.571975695567891*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"systemVariables", "=", 
  RowBox[{"{", 
   RowBox[{"thrust", ",", "cmr1"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.522430812890625*^9, 3.5224308593125*^9}, {
   3.555946089578125*^9, 3.55594609040625*^9}, 3.555948785578125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"thrust", ",", "cmr1"}], "}"}]], "Output",
 CellChangeTimes->{
  3.531855478453125*^9, 3.531855688609375*^9, 3.53185594615625*^9, 
   3.531856104921875*^9, {3.5318561669375*^9, 3.531856194203125*^9}, 
   3.531856477703125*^9, 3.531856899609375*^9, 3.531856980640625*^9, 
   3.53185764834375*^9, 3.531857809296875*^9, 3.5318578520625*^9, {
   3.53872241008825*^9, 3.538722447978875*^9}, 3.538722569541375*^9, 
   3.5389775637396517`*^9, 3.5547158279682083`*^9, 3.555948850515625*^9, 
   3.555949164578125*^9, 3.555949305703125*^9, 3.555949397609375*^9, 
   3.5559882906688776`*^9, 3.55599008097585*^9, 3.5559970213565807`*^9, 
   3.5559975092629395`*^9, 3.560851829169609*^9, 3.560851911729809*^9, 
   3.5608525708368087`*^9, 3.5608526825084085`*^9, 3.573057070028494*^9, {
   3.573058578454771*^9, 3.573058583926084*^9}, 3.575628874840946*^9, 
   3.5756295362420797`*^9, 3.5756447930118785`*^9, 3.5772072422599416`*^9, 
   3.577207288637594*^9, 3.5772804022644544`*^9, 3.577450685881637*^9, {
   3.5774508283958874`*^9, 3.5774508522872763`*^9}, 3.577450940427089*^9, 
   3.5791154987865534`*^9, 3.5814060838386197`*^9, 3.590728291836135*^9, 
   3.632755312071022*^9, 3.6327554181580896`*^9, 3.6327561189901752`*^9, 
   3.6327577220238633`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"expressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"torque", "==", "cmr1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Zcmr1", "==", 
      RowBox[{
       FractionBox[
        RowBox[{"cp", " ", 
         SuperscriptBox["dp", "5"], " ", "rho", " ", "wmr1"}], 
        RowBox[{"4", " ", 
         SuperscriptBox["pi", "3"]}]], "mTimestep"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Pin", "==", 
      RowBox[{"cmr1", " ", "wmr1"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Pout", "==", 
      RowBox[{"thrust", " ", "Up"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Jp", "==", "Jpe"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.52243073240625*^9, 3.52243073240625*^9}, {
   3.5224309366875*^9, 3.522430975828125*^9}, 3.52328836871875*^9, {
   3.55594587621875*^9, 3.555945881484375*^9}, {3.555946006609375*^9, 
   3.555946012484375*^9}, {3.555948795484375*^9, 3.55594883978125*^9}, 
   3.5559882575028663`*^9, {3.555989581955057*^9, 3.5559896267365932`*^9}, {
   3.5559899967403965`*^9, 3.5559900067874002`*^9}, {3.5718613682710915`*^9, 
   3.571861392700734*^9}, {3.6327552718547215`*^9, 3.632755285838522*^9}, {
   3.6327557161791353`*^9, 3.632755720596388*^9}, 3.632757704119839*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Compgen", "[", "file", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Unset", "::", "wrsym"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Symbol \[NoBreak]\\!\\(Up\\)\[NoBreak] is Protected. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", \
ButtonNote -> \\\"Unset::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6327553124980464`*^9, 3.632755418923134*^9, 
  3.6327561194752026`*^9, 3.6327577225068913`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "cntsList"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"modelobject\\\", \
\\(\\({\\(\\(\\\"typename\\\" \[Rule] \\\"AeroPropeller\\\"\\)\\), \
\\(\\(\\(\\(\\\"\\\" \[Ellipsis] \\\"e\\\"\\)\\) \[Rule] \\(\\(\\\"\\\" \
\[Ellipsis] \\\"\\\"\\)\\)\\)\\)}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \
\[Rule] \\\"AeroPropeller.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\" \[Rule] \
\\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \\\"AeroPropeller.svg\\\"\\)\
\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \
\[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] 0.5`\\)\\), \\(\\(\\\"a\\\" \
\[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"Pmr1\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\[LeftSkeleton] \
6 \[RightSkeleton]\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\
\\(\\\"x\\\" \[Rule] \\\"0.833333\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] \
\\\"1\\\"\\)\\), \\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \
\[Rule] \\\"Jp\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\
\\)}\\)\\)\\)\\)]\\)\[NoBreak] in \[NoBreak]\\!\\(XMLElement[\\(\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\[NoBreak] is not a list of \
contents. The third item in an XMLElement must be a list of contents, even if \
it is an empty list. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::cntsList\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6327553124980464`*^9, 3.632755418923134*^9, 
  3.6327561194752026`*^9, 3.632757722679901*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6327553124980464`*^9, 3.632755418923134*^9, 
  3.6327561194752026`*^9, 3.6327577227399044`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.5`\\)\[NoBreak] in \[NoBreak]\\!\\(\\\"y\
\\\" \[Rule] 0.5`\\)\[NoBreak] is not a valid value for an attribute in an \
XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6327553124980464`*^9, 3.632755418923134*^9, 
  3.6327561194752026`*^9, 3.632757722793907*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6327553124980464`*^9, 3.632755418923134*^9, 
  3.6327561194752026`*^9, 3.6327577227959075`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.3333333333333333`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.3333333333333333`\\)\[NoBreak] is not a \
valid value for an attribute in an XMLElement. The value of the attribute \
must be a string. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6327553124980464`*^9, 3.632755418923134*^9, 
  3.6327561194752026`*^9, 3.6327577227969074`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6327553124980464`*^9, 3.632755418923134*^9, 
  3.6327561194752026`*^9, 3.632757722797908*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Export :: \
autofix\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6327553124980464`*^9, 3.632755418923134*^9, 
  3.6327561194752026`*^9, 3.6327577228109083`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.6666666666666666`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.6666666666666666`\\)\[NoBreak] is not a \
valid value for an attribute in an XMLElement. The value of the attribute \
must be a string. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6327553124980464`*^9, 3.632755418923134*^9, 
  3.6327561194752026`*^9, 3.6327577228119087`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \
\[NoBreak]\\!\\(\\*StyleBox[\\(XMLElement :: attrhs\\), \
\\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6327553124980464`*^9, 3.632755418923134*^9, 
  3.6327561194752026`*^9, 3.6327577228139086`*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{769, 605},
WindowMargins->{{267, Automatic}, {-20, Automatic}},
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->FrontEnd`FileName[{"Creative"}, "PastelColor.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 143, 2, 75, "Section"],
Cell[725, 26, 248, 4, 41, "Input"],
Cell[976, 32, 901, 17, 62, "Input"],
Cell[1880, 51, 2726, 39, 208, "Text"],
Cell[CellGroupData[{
Cell[4631, 94, 1074, 26, 202, "Input"],
Cell[5708, 122, 271, 6, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6016, 133, 988, 21, 102, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[7007, 156, 574, 14, 112, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}]
}, Closed]],
Cell[7596, 173, 2561, 57, 219, "Input"],
Cell[10160, 232, 1510, 33, 162, "Input"],
Cell[11673, 267, 384, 9, 82, "Input"],
Cell[12060, 278, 571, 16, 162, "Input"],
Cell[12634, 296, 814, 16, 62, "Input"],
Cell[13451, 314, 1058, 34, 153, "Input"],
Cell[14512, 350, 934, 21, 182, "Input"],
Cell[15449, 373, 363, 6, 65, "Text"],
Cell[15815, 381, 573, 12, 41, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[CellGroupData[{
Cell[16413, 397, 5194, 89, 235, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
Cell[21610, 488, 675, 18, 162, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[22322, 511, 96, 1, 41, "Input"],
Cell[22421, 514, 1268, 31, 90, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23726, 550, 96, 1, 41, "Input"],
Cell[23825, 553, 1192, 30, 98, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25054, 588, 237, 6, 59, "Input"],
Cell[25294, 596, 737, 12, 59, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26068, 613, 214, 5, 59, "Input"],
Cell[26285, 620, 871, 14, 59, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27193, 639, 371, 9, 59, "Input"],
Cell[27567, 650, 1008, 18, 69, "Output"]
}, Open  ]],
Cell[28590, 671, 1081, 23, 137, "Input"],
Cell[CellGroupData[{
Cell[29696, 698, 253, 5, 41, "Input"],
Cell[29952, 705, 1282, 20, 40, "Output"]
}, Open  ]],
Cell[31249, 728, 1309, 27, 199, "Input"],
Cell[CellGroupData[{
Cell[32583, 759, 63, 1, 41, "Input"],
Cell[32649, 762, 506, 10, 21, "Message"],
Cell[33158, 774, 1876, 30, 107, "Message"],
Cell[35037, 806, 533, 11, 21, "Message"],
Cell[35573, 819, 646, 12, 39, "Message"],
Cell[36222, 833, 533, 11, 21, "Message"],
Cell[36758, 846, 680, 13, 39, "Message"],
Cell[37441, 861, 531, 11, 21, "Message"],
Cell[37975, 874, 607, 12, 21, "Message"],
Cell[38585, 888, 680, 13, 39, "Message"],
Cell[39268, 903, 610, 12, 21, "Message"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
